* net/shr.el (shr-browse-url): Fix interactive spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1f6ceee6a54e601fd616e6609e76470ac28b9cb..97b3fcbc4f1e763b5b58098680417218a86a948c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-24  Ivan Kanis  <ivan@kanis.fr>
 
+       * net/shr.el (shr-browse-url): Fix interactive spec.
+
        * net/eww.el (eww): Add a trailing slash to domain names.
 
 2013-06-24  Juanma Barranquero  <lekktu@gmail.com>

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index bb58a99ce101ea45b1ce0597dc6fdf8cb8cd2f50..886308d55efa243448d7918c5da9b81c12670046 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -648,7 +648,7 @@ size, and full-buffer size."
 (defun shr-browse-url (&optional external)
   "Browse the URL under point.
 If EXTERNAL, browse the URL using `shr-external-browser'."
-  (interactive "p")
+  (interactive "P")
   (let ((url (get-text-property (point) 'shr-url)))
     (cond
      ((not url)